home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / DSL.LSP < prev    next >
Text File  |  1992-09-13  |  272b  |  8 lines
  1. ;Transparent extension line toggle, must pick from menu
  2. ;
  3. ;
  4. (defun dimsetl()
  5. (setq dv1(getvar "dimse1"))
  6. (if(=(getvar"dimse1")0)(setvar"dimse1"1)(setvar"dimse1"0))
  7. (if(= dv1 1)(princ "Left Ext. lines are on"))(if(= dv1 0)
  8. (princ "Left Ext. lines are off"))(princ))